PROGRAM test;
VAR 
i:real;
p:integer;
j:integer;
k:integer;
l:integer;

m:real;
n:real;

BEGIN
  i:=10/3;
  p:=10/3;
  
  k:=6+7;
  
  l:=2-k; 
  j:=i+k/l+i*k;
 
  m:=5.2;
  n:=m-6.9*m+m;
END. 

